home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Herois / Codigo.Cst / 00009_Frame Creditos.ls < prev    next >
Encoding:
Text File  |  1999-03-19  |  2.0 KB  |  83 lines
  1. property pronto
  2.  
  3. on exitFrame
  4.   if the frame > marker("creditos") then
  5.     go the frame
  6.   else
  7.     cursor -1
  8.   end if
  9. end
  10.  
  11. on getBehaivorDescription
  12.   return "Pause na saida do frame, chamando #idleSprite para todos sprites durante #idle"
  13. end
  14.  
  15. on idle
  16.   global gMustUpdate
  17.   set gMustUpdate to false
  18.   sendAllSprites(#idleSprite)
  19.   if gMustUpdate then updateStage
  20.   
  21.   global gLocalTimer
  22.   set t = the timer - gLocalTimer
  23.   if t > 1450 then
  24.     saiDoFrame
  25.   else if t > 1140 and not pronto then
  26.     set the subliminar of sprite 5 to "AberturaCimaPrim"
  27.     set the subliminar of sprite 7 to "AberturaCimaPrim"
  28.     set the subliminar of sprite 6 to "AberturaApresentam"
  29.     repeat with i = 5 to 7
  30.       set the deltaSubliminar of sprite i to 0
  31.       sendSprite i, #inicializaAnima
  32.     end repeat
  33.     set pronto = true
  34.   end if 
  35. end
  36.  
  37. on mouseUp 
  38.   saiDoFrame
  39. end
  40.  
  41. on saiDoFrame
  42.   -- Aguarda um instantinho
  43.   cursor 4
  44.   sendAllSprites(#cleanSprite)
  45.   unloadMember member "AberturaCima", member "AberturaBaixoUlt3"
  46.   preload marker("Menu"), marker("Menu")
  47.   preloadMember "NoisePrim", "NoiseUlt"
  48.   puppetSound 2, 0
  49.   set the volume of sound 2 to 255
  50.   sound fadeOut 1,120
  51.   global gFundoTempo
  52.   set gFundoTempo = the timer + 120
  53.   
  54.   cursor -1
  55.   go frame "Menu"
  56. end
  57.  
  58. on enterFrame
  59.   global myMemSize
  60.   
  61.   if the frame = marker("Creditos") then
  62.     sound fadeOut 2,600
  63.     cursor 4
  64.     if myMemSize < 18 * 1024 * 1024 then
  65.       repeat with i = 5 to 7
  66.         set the memberUlt of sprite i to "AberturaShort"
  67.         sendSprite i, #inicializaAnima
  68.       end repeat
  69.       -- Preloads basicos do CD
  70.       preloadMember member "AberturaCima", member "AberturaApresentam"
  71.       preloadMember member "AberturaCimaPrim", member "AberturaShort"
  72.     else
  73.       preloadMember member "AberturaCima", member "AberturaApresentam"
  74.       preloadMember member "AberturaCimaPrim", member "AberturaBaixoUlt3"
  75.     end if
  76.     global gLocalTimer
  77.     set gLocalTimer = the timer
  78.     set pronto = false
  79.     set the volume of sound 1 to 255
  80.     puppetSound 1, "SomCreditos"
  81.     sound fadeIn 1, 120
  82.   end if
  83. end